#light

open System
open System.IO
open System.Resources

let main() =
  let args = (Array.map Path.GetFullPath Sys.argv)
  let out  = args.[1]
  let inputs = { for i in [2 .. args.Length-1] do 
                   yield args.[i] }
                   
  use res = new ResXResourceWriter(out)
  inputs |> Seq.iter (fun s ->
    use reader = new StreamReader(s)
    res.AddResource(Path.GetFileName(s), reader.ReadToEnd()) )
  res.Generate()

main()